home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / in.src < prev    next >
Text File  |  1990-10-17  |  828b  |  35 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ by Ullrich Horlacher
  3. DIR
  4. IN
  5. \<< \->INL \-> s p t
  6.   \<< s "" \=/ s ":" + s IFTE 's' STO ""
  7.     WHILE DUP s SWAP + "_" + p DISP
  8.       DO
  9.       UNTIL KEY
  10.       END DUP 51 \=/
  11.     REPEAT DUP
  12.       IF 61 ==
  13.       THEN DROP LCD\-> \-> s d
  14.         \<< HALT s "" d \->LCD
  15.         \>>
  16.       END DUP
  17.       IF 55 ==
  18.       THEN DROP 1 OVER SIZE 1 - SUB
  19.       ELSE t DUP ROT POS 1 +
  20.         IF DUP 1 \=/
  21.         THEN GET +
  22.         ELSE DROP2
  23.         END
  24.       END
  25.     END DROP s OVER + p DISP
  26.   \>>
  27. \>> 
  28.  
  29. \->INL
  30. { 93 "." 92 "0" 82 "1" 83 "2" 84 "3" 72 "4" 73 "5" 74 "6" 62 "7"
  31. 63 "8" 64 "9" 11 "A" 12 "B" 13 "C" 14 "D" 15 "E" 16 "F" 21 "G" 22 "H"
  32. 23 "I"24 "J" 25 "K" 26 "L" 31 "M" 32 "N" 33 "O" 34 "P" 35 "Q" 36 "R"
  33. 41 "S" 42 "T" 43 "U" 44 "V" 45 "W" 46 "X" 52 "Y" 53 "Z" 94 " " }
  34. END
  35.